home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
Superbase4_d2.adf
/
Trading
/
STKRNE.SBP
< prev
next >
Wrap
Text File
|
1992-08-05
|
1KB
|
56 lines
SBP
ÿ½ STKRNE
ÿ½ Client Telephone List
ÿ½ Last updated Jan 21, 90
ÿ³ÿ_ÿwrerror
hd1$ÿ"Client Telephone List at "ÿÿ(ÿQ,"mmm dd,yy")
hd12$ÿ"Ref: STKRNE"
m1:
ÿÁ
ÿ}ÿÁ
ÿ{
ÿ{@2;"Number of records:";@21;&15ÿ(ÿX,"9999.")
ÿÿÁ
ÿ
ÿ{@1;hd1$;@66;hd12$
ÿ{
ÿ{@2;"Client Location Telephone Hours"
ÿ{@2;"------------------------- ----------------------- ------------------- -----"
ÿÿ
ÿÉ@2;&26Client.CLIENTS;&23Location.CLIENTS;@52;"(";&3Dialcode.COUNTRY;")";&16Telephone.CLIENTS;
&5GMT Zone_Min.COUNTRY
ÿÐCountry.CLIENTSÿName.COUNTRY
m2:
ÿ¡p$ÿ"d"ÿp
ÿÊÿËss14$
ÿÏÿ¥ÿÿß
ÿÿ¡
repeat:
ÿÂms3$,"",135,a%
ÿ¡a%ÿ0ÿpÿwrexit
ÿ¡p$ÿ"p"ÿpÿ¹;
ÿwm1
rexit:
ÿ"menu"
rerror:ÿ½ On error
res%ÿ0
ÿ¡ÿ&ÿ11ÿp
ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
ÿ^ÿ¡ÿ&ÿ27ÿp
ÿÂms11$,ms12$,100,a%:res%ÿ2
ÿ^
ÿÂÿ((ÿ&),"",113,a%:res%ÿ1
ÿÿ¡
ÿ¡res%ÿ1ÿpÿyrepeat
ÿ¡res%ÿ2ÿpÿyrexit
ÿ